home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / user / PicComplexExample.st < prev    next >
Text File  |  2002-10-27  |  2KB  |  58 lines
  1. " ------------------------------------------------------------------ "
  2. " DisplayPic.st - Display a graphic file using the DataType classes. "
  3. " ------------------------------------------------------------------ "
  4.  
  5. Class DisplayPic :Object 
  6. ! 
  7.   dtLibrary modeID objName intuition dtSystem logoPic dtAttrs
  8.   dtoTags   dto
  9. !
  10. [
  11.    new
  12.      dtLibrary <- Library new: 'datatypes.library'
  13.      dtLibrary openVersion: 44
  14.  
  15.      modeID    <- 0
  16.      objName   <- String new: 80
  17.  
  18.      intuition <- Intuition new
  19.      dtSystem  <- DataTypeSystem new
  20.  
  21.      logoPic   <- DataType new
  22.  
  23.      dtAttrs   <- Array new: 5
  24.      dtoTags   <- Array new: 7
  25.  
  26.      dtAttrs at: 1 put: (dtSystem getDTClassTag: #DTA_ObjName)
  27.      dtAttrs at: 2 put: (amigatalk getStringAddress: objName)
  28.      dtAttrs at: 3 put: (dtSystem getDTPictureTag: #PDTA_ModeID)
  29.      dtAttrs at: 4 put: (amigatalk getIntegerAddress: modeID)
  30.      dtAttrs at: 5 put: 0
  31.  
  32.      dtoTags at: 1 put: (intuition getGadgetAttr: #GA_Relverify)
  33.      dtoTags at: 2 put: 1
  34.      dtoTags at: 3 put: (intuition getGadgetAttr: #GA_Immediate)
  35.      dtoTags at: 4 put: 1
  36.      dtoTags at: 5 put: (dtSystem getDTClassTag: #DTA_DataType)
  37.      dtoTags at: 6 put: 0
  38.      dtoTags at: 7 put: 0
  39. |
  40.    cleanup
  41.      dto disposeDTObject.
  42.      dtLibrary close
  43. |
  44.    viewPic: filename
  45.      self new. 
  46.  
  47.      dto <- logoPic newDTObject: filename tags: dtoTags.
  48.  
  49.      (dto == nil)
  50.         ifTrue: [ logoPic translateDTErrorNum print.
  51.                   ^ nil  
  52.                 ].
  53.  
  54.      dto getDTAttrs: dtAttrs
  55.      ...
  56.      self cleanup
  57. ]
  58.